100 POKE53280,0:POKE53281,0:POKE53272,23
150 PRINT"[147][158]             [215][200][195] [197]NTERPRISES"
155 GOSUB390:GOSUB340:PRINT"[153]                                        [146]";
160 PRINT"                                        [146]";
162 PRINT"            [197][206][199][204][201][211][200][160][197][216][197][210][195][201][211][197][211]           [146]";
165 PRINT"[153]                                        [146]";:GOSUB390:GOSUB340
170 PRINT"                                        [146]";
175 PRINT"          * [211]PELLINGZZZZAPPER *         [146]";
180 PRINT"[153]                                        [146]";:GOSUB390:GOSUB340
182 PRINT"                [212]EST # 2                [146]";
184 PRINT"[153]                                        [146]";
186 PRINT"                                        [146]":GOSUB391
188 PRINT"                                      [152][212][153]"
190 GOSUB290
195 GOTO500
200 REM CORRECT
202 GOSUB300
204 PRINT"[153]               [195][207][210][210][197][195][212]!                 [146]"
206 GOSUB392:RETURN
210 REM WRONG
212 GOSUB320
214 PRINT"[150]           [206][207]!!   [212]RY AGAIN!            [146]":GOSUB392
216 PRINT"[145][145]                                        [145][145]
218 [153]"ONONON                                        ONONON":[142]
290 [141]392:[141]360
292 [153]"CONT      (null)RESS (null)(null)ATNLENVALCLOSEPEEKATN(null) TO CONTINUE       WAIT"
294 [161]R$:[139]R$[179][177][199](32)[175]R$[179][177]"T"[167]294
296 [139]R$[178]"T"[167][141]900
298 [153]"LOAD":[141]390:[142]
299 :
300 [143] <YES> SOUND
302 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
304 [151]54296,15:[151]54277,42:[151]54278,250
306 [151]54276,23:[151]54273,23:[151]54272,191
308 [129]T[178]1[164]200:[130]:[151]54276,32:[129]T[178]1[164]250:[130]
310 [151]54296,0:[142]
320 [143] <NO> SOUND
322 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
324 [151]54296,15:[151]54277,18:[151]54278,242
326 [151]54276,33:[151]54273,4:[151]54272,48
328 [129]T[178]1[164]300:[130]:[151]54276,32:[129]T[178]1[164]400:[130]
330 [151]54296,0:[142]
340 [143] <BLIP> SOUND
342 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
344 [151]54296,7:[151]54277,42:[151]54278,250
346 [151]54276,23:[151]54273,23:[151]54272,191
348 [129]T[178]1[164]35:[130]:[151]54276,32:[129]T[178]1[164]50:[130]
350 [151]54296,0:[142]
360 [143] <DING> SOUND
362 S[178]54272:[151]54296,15:[151]S,50:[151]S[170]1,35:[151]S[170]2,0:[151]S[170]3,8:[151]S[170]5,0
364 [151]S[170]6,10[172]16[170]9:[151]S[170]4,14:[151]S[170]4,65:[129]Q[178]1[164]20:[151]S[170]4,64:[142]
370 [143] <VERY WRONG SOUND>
372 S[178]54272:[151]54296,15:[151]S,32:[151]S[170]1,3:[151]S[170]2,128:[151]S[170]3,13
374 [151]S[170]5,4[172]16[170]0:[151]S[170]6,10[172]16[170]8
376 [151]S[170]24,15:[151]S[170]4,65:[129]Q[178]1[164]500:[130]:[151]S[170]4,64:[142]
390 [129]T[178]1[164]600:[130]:[142]
391 [129]T[178]1[164]1000:[130]:[142]
392 [129]T[178]1[164]2000:[130]:[142]
393 [129]T[178]1[164]3000:[130]:[142]
394 [129]T[178]1[164]4000:[130]:[142]
395 [129]T[178]1[164]5000:[130]:[142]
399 :
400 [153]"LISTLOAD (null)PELLINGZZZAPPER (null)-2         RIGHT$TEM "N
410 [142]
420 M[178]TI[173]60
425 M[178][181](M[170].5)
430 [142]
499 :
500 [153]"LOAD  RIGHT$N THIS PROGRAM YOU WILL TEST
502 PRINT"  YOURSELF TO SEE HOW MUCH YOU
504 [153]"  LEARNED IN PRINT(null)RACTICE #2OPEN.
508 PRINT"  [217]OU MUST SELECT AND TYPE WHICH
512 [153]"  OF TWO WORDS IS SPELLED CORRECTLY.
516 PRINT"  [217]OU WILL HAVE ONLY ONE CHANCE TO
520 [153]"  SELECT FROM EACH PAIR OF WORDS.
524 PRINT"  [193] TIMER WILL MEASURE YOUR RATE OF
528 [153]"  PROGRESS AND YOU ALSO WILL BE           SCORED.
532 PRINT"  [193]T THE END OF THE TEST, THE WORDS
536 [153]"  YOU MISSED WILL BE LISTED.  (null)LEASE
540 PRINT"  RECORD THESE WORDS FOR FURTHER
544 [153]"  STUDY.
550 GOSUB290
560 PRINT"[147][158]AND AWAY WE GO..........":GOSUB300:GOSUB392
565 :
570 TI$="000000"
599 :
600 N=1
605 DIMA$(19),B$(19),C$(19),Q$(19)
610 FORG=0TO19:FORI=0TO2:GOSUB400:N=N+1
615 GOSUB420:PRINT"            [197]LAPSED TIME";M
617 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]
620 [135]A$(G),B$(G),C$(G)
630 [153]"OPEN (null)HICH OF THESE WORDS IS SPELLED         CORRECTLY?
640 PRINT"       "A$(G);B$(G)
650 PRINT"[158] ":INPUTZ$
660 IFZ$=C$(G)THENGOSUB200:GOTO690
670 GOSUB370:PRINT"[150] [212]HE CORRECT WORD IS "C$(G)"[150]."
675 GOSUB290:W=W+1
680 Q$(G)="Q"
690 NEXTG
700 PRINT"[147]  [211]PELLINGZZZZZAPPER [212]-2   [211][195][207][210][197][160][194][207][193][210][196]  [146]
705 L[178]20[171]W:K[178]L[172]5:[141]420
710 [153]"      SYS (null)OUR SCORE ......";K"%":[141]360:[141]391
715 [153]"      SYS (null)OUR TIME .......";M"SECONDS":[141]360:[141]391
720 [153]"      PRINT LENORRECT .........";L:[141]300:[141]391
725 [153]"      DEF PEEK(null)(null)(null)(null)VAL(null)(null) ........";W:[141]370
730 [139]K[178][177]90[167][153]"               VAL(null)LENVAL(null)(null)VAL(null)(null)!CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSEWAIT"
735 [139]K[178]100[167][153]"":[141]790
740 [141]290
745 [153]"LOADSYS    (null)LEASE RECORD THESE LEFT$VALATN(null)(null) WORDS:"
750 [129]G[178]0[164]19:[139]Q$(G)[178]"Q"[167][153][163]8)C$(G)
755 [130]G
790 [141]290
799 :
800 [153]"LOADSYS (null)OU HAVE A CHOICE:
805 PRINT" [208]RESS  [210] [146] TO REPEAT [211]PELL [212]EST  2"
810 PRINT" [208]RESS  [205] [146] TO GO TO THE DISK MENU
815 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"(null)"[175]R$[179][177]"M"[175]R$[179][177]"(null)"[167]815
820 [139] R$[178]"R"[167] [140]:[137]100
825 [139] R$[178]"(null)"[167] [140]:[137]100
830 [153]"LOADSYS (null)ETURNING TO THE DISK MENU.
835 LOAD"MENU",8
840 RUN
845 END
899 :
900 PRINT"[147][159]     [212]HE WORDS USED IN [211]PELL [212]EST 2:
905 [153]"     AGGRESSIVE    EXAGGERATE
910 PRINT"     NECESSARY     QUESTIONAIRE
915 [153]"     APPARENT      EXCELLENT
920 PRINT"     OCCASIONALLY  SUPPRESSION
925 [153]"     COMMIT        FULFILL
930 PRINT"     OCCURRED      UNNECESSARY
935 [153]"     COMMITTEE     INTELLIGENCE
940 PRINT"     OMISSION      VACUUM
945 [153]"     MISTAKES      ALLOWING
950 PRINT"     ACCOMMODATION SURPRISING"
960 GOSUB290:RETURN
1000 DATA"AGRESSIVE /"," AGGRESSIVE","AGGRESSIVE"
1010 DATA"EXAGGERATE /"," EXAGERATE","EXAGGERATE"
1020 DATA"NECESARY /"," NECESSARY","NECESSARY"
1030 DATA"QUESTIONNAIRE /"," QUESTIONAIRE","QUESTIONNAIRE"
1040 DATA"APPARENT /"," APARRENT","APPARENT"
1050 DATA"EXCELANT /"," EXCELLENT","EXCELLENT"
1060 DATA"OCASSIONALLY /"," OCCASIONALLY","OCCASIONALLY"
1070 DATA"SUPRESSION /"," SUPPRESSION","SUPPRESSION"
1080 DATA"COMMIT /"," COMMITT","COMMIT"
1090 DATA"FULLFILL /"," FULFILL","FULFILL"
1100 DATA"OCCURRED /"," OCCURED","OCCURRED"
1110 DATA"UNNECESSARY /"," UNECESSARY","UNNECESSARY"
1120 DATA"COMMITTE /"," COMMITTEE","COMMITTEE"
1130 DATA"INTELLIGENCE /"," INTELIGENCE","INTELLIGENCE"
1140 DATA"OMMISSION /"," OMISSION","OMISSION"
1150 DATA"VACUUM /"," VACCUM","VACUUM"
1160 DATA"MISSTAKES /"," MISTAKES","MISTAKES"
1170 DATA"ACCOMODATION /"," ACCOMMODATION","ACCOMMODATION"
1180 DATA"ALLOWING /"," ALOWING","ALLOWING"
1190 DATA"SURPPRISING /"," SURPRISING","SURPRISING"
2000 REM WHC 92:09:18